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1. INTRODUCTION 



Available IBM-PC software for the IBM-7231 and 7232 color plotters 
has one lajor deficiency: the software will not accept function defini- 

tions as standard input. Plotting functions requires that the functions 
are input as discrete (X,Y) coordinates. 

The program contained and illustrated in this report eliminates the 
requirement for discrete coordinate inputs in order to plot functions. 
Continuous single valued functions are defined using the construction 
rules for standard BASIC expressions. These function definitions then 
become the program inputs. The program will also accept (X,Y) points and 
plot a line graph connecting the points. The program is written in IBM 
BASIC and is included as Appendix A. The program input requirements are: 

a. ) Input function file. 

b. ) Plotting parameters. 

c . ) Line graph points. 

The input function file is created as a separate file and contains 
the function definitions. The plotting parameters and the line graph are 
provided in response to program interactive menus. 

In general the program provides the user with the capability to: 

a. ) Plot any selection of five user defined functions. 

b. ) Specify line formats, pen selection, grid spacing, labels, 

legends and plot size. 

c. ) Plot a line graph connecting up to 100 (X,Y) points. 

d. ) Save the plotting parameters and line graph points in an input 

data file. 

The plot is horizontally centered on 8 1/2 x 11 inch paper. The 
plotting area is a square with user defined dimensions from three to 
five inches. 

2. PROGRAM ACCESS 

The IBM-PC BASIC program is available on diskette for copying from 
the Operations Research Department Office, Root 272. The diskette con- 
tains the program in file IBMPLOT.BAS, sample input function files 
IBMFEXl.BAS and IBMFEX2.BAS, and sample input data files IBMDEXI and 
IBMDEX2 correspond i ng to Examples 1 and 2 of this report. 
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3. INPUT FUNCTION FILE 



In order to plot functions the progra® requires that the function 
definitions are constructed as BASIC statements and are contained in an 
input function file. The format for this file is: 

5010 Function Definition 1 
5020 Function Definition 2 
5030 Function Definition 3 
5040 Function Definition 4 
5050 function Definition 5 

Each statement begins on a new line. The numbers 6010-6050 are BASIC 
statement numbers and must occupy columns 1-4. The function defini- 
tions are valid BASIC expressions in the form Y=F(X). Each statement 
can contain 256 characters. The maximum number of function definitions 
in one input function file is five. When the number of function defini- 
tions is less than five, the function definition statements must begin 
with 5010 and continue in sequence 5020, 5030, etc. 

An example of a valid input function file is: 

5010 Y=SIN(X) 

5020 Y=C0S(X) 

5030 Y=TAN(X) 

The input function file must be an ASCII file. This file can be 
created with a word processor, with EDLIN or with BASIC and saved as an 
ASCII file. This file can have any valid DOS file name but must have 
".BAS" as the file name extension. 

4. PROGRAM STARTUP 

Executing the program requires that: 

a. ) The IBM-PC and the IBM Plotter are connected via the COMl 

serial port. 

b. ) An input function file, if required, is available. 

A recommended program startup procedure on the IBM-PC is: 

a. ) Place the IBM DOS Diskette in Drive A. 

b . ) Turn the IBM-PC on . 

c. ) Respond to the Date and Time requests, if required. 

d. ) At the A> prompt type BASICA (Return). 

e. ) Place the IBMPLOT.BAS diskette in Drive A. 

f. ) Type RUN "IBMPLOT (Return). 

From this point on the user is directed by interactive program 
menus . 
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5. MENUS 



There are -fifteen menus that appear in sequence during program 
execution. These menus prompt the user for inputs or provide information 
on the status of the program. General information for the input menus 
i s: 

a. ) All inputs in a menu are listed with current values. 

b. ) As each input is considered for changing it is highlighted 

with an 

c. ) A Y/N in the input prompt indicates the input response is ''Y“ 

for Yes and "N" for No. 

d. ) The current input value may be retained by responding with a 

carriage return. 

e. ) The input value may be changed by typing a new value followed 

by a carriage return. 

f. ) Corrections to inputs during typing, prior to a carriage 

return, are made with the delete and backspace keys. 

g. ) Key F9 followed by a carriage return will restart the input 

menu so that input errors, once accepted, can be changed. 

h. ) When specified in the menu. Key F10 followed by a carriage 

return provides a quick advance to the next menu. All inputs 

that were not changed retain the current displayed values. 

i. ) The input processor is not idiot-proof. It works flawlessly 

when used appropr i atel y . Keep the cursor on the input line. 

Each of the menus and associated inputs are explained in the follo- 
wing sections. 

5.1. Menu 1: Plotter Switch Settings 

Menu I provides the switch settings for the IBM-7371 and 7372 plot- 
ters. If the switches are not set correctly the program will not run. 
The plotter should be turned off while the switches are set and then 
turned on. 

5.2. Menu-2: Enter File Names 

Menu-2 prompts the user to indicate if an input function file and/or 
an input data file are to be read. Valid inputs are "Y" and "N". The “Y" 
response prompts the user for a file name. When these files are read the 
function definitions and/or the input data are inserted into the prog- 
ram. If functions are to be plotted the function definitions have to 

read from an input function file which should have been created accor- 
ding to the instructions in Section 3. The input data file is created by 

the program, if desired, at the end of the input phase. 
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5.3. Menu-3: Enter Plotting Parameters 

Menu-3 prompts the user for plotting parameter inputs. The plotting 
parameters are described as folloMs: 

XMIN: X-axis minimum value (must be an integer). 

XMAX: X-axis maximum value (must be an integer). 

YMIN: Y-axis minimum value (must be an integer). 

YMAX: Y-axis maximum value (must be an integer). 

XSCALE: X-axis division scale factor used to convert X-axis values 
to noninteger values. For example: If the X-axis is to have 
the range 0 to .9 then the X-axis inputs are 0 and 9 and the 
XSCALE input is 10. 

YSCALE: Y-axis division scale factor used to convert Y-axis values 
to noninteger values. (Similar to XSCALE) 

SIZE: Size of the square plotting area in inches. Valid inputs are 

3 to 5. 

NUMBER OF X-AXIS GRIDS: The number of grid space divisions on the X- 
axis. Grids are drawn. Labels are printed at each grid line. 
Valid inputs are 1 to 10. 

NUMBER OF Y-AXIS GRIDS: The number of grid space divisions on the Y- 
axis. Grids are drawn. Labels are printed at each grid line. 
Valid inputs are 1 to 10. 

NUMBER OF FUNCTIONS: The number of function definitions in the input 
function file. Valid inputs are 0 to 5. 

JUMP FUNCTION: Determines if the plotting pen is down or up as the 

pen moves across the plotting area from above to below, or 
from below to above, the plotting area. Valid inputs are "Y" 
and "N". “Y" indicates the pen is up. "N" indicates the pen 

IS down. See Example 1. 

NUMBER OF (X,Y): The number of individual points to plot in addition 
to the function definitions. Valid inputs are 0 to 100. 

CONNECT POINTS: Determines if the points are connected with a line 

graph. Valid inputs are "Y" and "N”. 

MARK POINTS: Determines if points are marked with when plotted. 

Valid inputs are "Y" and “N“. 

5.4. Menu-4: Enter Function Number To Plot 

Menu-4 prompts the user to indicate for each function if the fun- 
ction is to be plotted. Any combination of the functions can be plotted. 
Valid inputs are ”Y" or "N". 

5.5. Menu-5: Enter (X,Y) Points 

Menu-5 prompts the user to input the (X,Y) points for plotting. The 
points are shown on the screen in sets of 15 points. Valid inputs are 
numbers in the standard integer or decimal format. Points outside of the 
plotting area will not be plotted. 
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5.6. henu-6: Enter Plot Titles. 



Menu-6 prompts the user for titles to be printed on the plot. The X- 
axis title is printed under the X-axis. The Y-axis title is printed 
along the Y-axis. The Top title is printed above the plot. All titles 
are centered. Valid inputs are any character except 

5.7. Menu-7: Enter Plot Legends 

Menu-7 prompts the user to input legend titles for each function to 
be plotted. The legends are printed to the right of the plot. Valid 
inputs are any character except The maximum number of characters is 
12 . 



5.8. Menu-8; Enter X-Axis Labels 

Menu-8 prompts the user to enter X-axis labels. The labels are 

centered on the grid lines. Valid inputs are any character except " , ” . 

5.9. Menu-9: Enter Y-Axis Labels 

Menu-9 prompts the user to enter Y-axis labels. The labels are 

centered on the grid lines. Valid inputs are any character except . 

5.10. Menu-10: Edit/Save Input Data 

Menu-10 prompts the user to indicate if the input data is to be 
edited and/or saved. Valid inputs are "Y“ and "N“. This is the end of 
the input phase. If the input data is to be edited for corrections the 

program returns to Menu-2. If the data is to be saved in a file on a 

diskette then the user is prompted for a file name. 

5.11. Menu-11: Begin Plot 

Menu-11 informs the user that the plotter is drawing the plotting 
area with the specified X-axis and Y-axis grids. No input is required. 

5.12. Menu-12: Enter Point Plot Parameters 

Menu-12 prompts the user for point plotting inputs for pen selection 
and line type. Valid inputs for pen selection depend on the number of 
pen positions on the plotter which are 1 to 6 for the IBM-7372 plotter 
and 1 to 2 for the IBM-7371 plotter. Valid inputs for line type are 
included in the menu. Responding with the carriage return provides a 
solid line. All other responses are either dots or dashes. The plotter 
will stop and wait for these inputs. 
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5.13. Menu-13: Enter Function Plot Parameters 



Menu-13 prompts the user for function plotting inputs for pen selec- 
tion and line type. Valid inputs for pen selection depend on the number 
of pen positions on the plotter which are 1 to 6 for the IBM-7372 
plotter and 1 to 2 for the IBM-7371 plotter. Valid inputs for line type 
are included in the menu. Responding with the carriage return provides a 
solid line. All other responses are either dots or dashes. The plotter 
will stop and wait for these inputs prior to plotting each function. 

5.14. Menu-14: Begin Printing 

Menu-14 informs the user that function and point plotting is com- 
plete and that titles and labels are now being printed. 

5.15. Menu-15: Restart/End Program 

Menu-15 prompts the user to either restart or end the program. Valid 
inputs are "Y" or "N". If the program is restarted it returns to Menu-2 
and all inputs and functions remain in effect until changed. If the 
program is not restarted it terminates and computer control is returned 
to DOS. 
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6. EXAMPLES 



Two examples are provided to illustrate program application. 

6. 1 . Example 1 

This example plots the tr i gonomet r i c functions 

Y = Sin (X) 

Y = Cos (X) 

Y = Tan (X) 

No points are plotted. The input function file and input data file for 
this example are on the IBMPLOT.BAS diskette in files IBMFEXl.BAS and 
IBMDEXl. A review of the data is presented in Table 1 and the plotter 
output is contained in Figure 1. 

To specifically illustrate the jump function input this example was 
run to plot only the function Y » Tan (X) with the jump function input 
set to "Y" and then set to ”N". The plotter output is presented in 
Figures 2 and 3. The difference in the plotter output is the pen-up and 
pen-down feature as the pen moves across the discontinuities for Y. 

6.2. Example 2 

This example plots the eight (X,Y) points 

(X,Y) = (2, .94), (2. 5, .78), (3, .65), (3.5, .55) 

(4, .52), (4. 5, .49), (5, .44), (5.5, .41) 

and the functions 



Y 


= A#X + B 


ft =- .19 


B = 


1.35 


Y 


= B#A^^X 


ft = .76 


B = 


1.65 


Y 


= B*X^A 


ft =- .83 


B = 


1.65 


Y 


= X/ (A + B*X) 


ft =-3.35 


B = 


2.83 



The coefficients in the functions were determined from the eight 
(X,Y) points by least squares with the constraint that (X,Y) = (1.83, 
1.0). The input function file and input data file for this example are 
on the IBMPLOT.BAS diskette in files IBMFEX2.BAS and IBMDEX2. A review 
of the data is presented in Table 2 and the plotter output is contained 
in Figure 4. This example compares graphically the derived functions 
with the original points and illustrates the utility of plotting a line 
graph along with the function definitions. 
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7. APPLICATION EXTENSIONS 



The BASIC program is included as Appendix A. The program is 
straight forward and each program menu section is clearly marked. A user 
familiar with BASIC can extend this program in many ways. The plotting 
procedures are the heart of the program and many other applications can 
be built around them. It should not be hard, for instance, to plot and 
label sequences of line graphs, plot and label bar graphs, perform 
specific least square calculations and increase the number of functions. 



B 



INPUT FUNCTION FILE NAME: IBMFEXl.BAS 
INPUT DATA FILE NAME: IBMDEXl 



X-AXIS TITLE: X (RADIANS) 
Y-AXIS TITLE: Y=F(X) 



XMIN: 0 




TOP TITLE 


: TRIG 


FUNCTIONS 


XMAX: 10 




LEGEND-1: 


SIN (X) 




YMIN: - 2 




LEGEND-2: 


COS (X) 




YMAX: 2 




LEGEND-3: 


TAN (X) 




XSCALE: 1 




1 X-AXIS 


LABEL: 


0.0 




YSCALE: 1 




2 X-AXIS 


LABEL: 


2.0 




SIZE: 3.5 




3 X-AXIS 


LABEL: 


4.0 




NUMBER OF X-AXIS 


GRIDS: 5 


4 X-AXIS 


LABEL: 


6.0 




NUMBER OF Y-AXIS 


GRIDS: 4 


5 X-AXIS 


LABEL: 


8.0 




JUMP FUNCTION: 


Y 


1 Y-AXIS 


LABEL: 


-2.0 




NUMBER OF (X,Y): 


0 


2 Y-AXIS 


LABEL: 


-1.0 




CONNECT POINTS: 


N 


3 Y-AXIS 


LABEL: 


0.0 




MARK POINTS: 


N 


4 Y-AXIS 


LABEL: 


1.0 




PLOT FUNCTION 1: 


Y 


5 Y-AXIS 


LABEL: 


2.0 




PLOT FUNCTION 2: 


Y 


FUNCTION 


1 LINE 


TYPE: 


2 


PLOT FUNCTION 3: 


Y 


FUNCTION 


2 LINE 


TYPE: 


3 






FUNCTION 


3 LINE 


TYPE: 


4 



Table 1: Input Data For Example 1 



TRIG FUNCTIONS 




X (RADIANS) 



Figure 1: Plotter Output tor Exaniple 1 
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FCX) Y = F<X) 



TRIG FUNCTIONS 



/ 

1 

1 

1 




■T 

1 

/ 


1 — 

1 

1 

1 

1 _ 




1 

1 

/ 

/ 

/ 


1 

t 

1 

/ 

/ 




/ 

/ 

/ 

/ 

/ 


/ 

/ 

/ 




/ 

/ 

/ 

/ 


/ 

/ 

/ 


f 


/ 

/ 

/ 

/ 

/ 




/ 

/ 

I 

/ 


/ 

/ 

/ 

1 

1 




/ 

/ 

[ 

; 

-j 



0.0 2.0 4.0 8.0 8.0 10.0 



X (RADIANS) 



2: Plotter Output for Y=T«n (X) with Jump Function 



TRIG FUNCTIONS 



It 



/I 




IT 
' 1 
1 






r 1 
/ 1 
/ 1 
/ 1 

' 1 


/ 

/ 

/ 

/ 

/ 


1 

1 

1 

1 


/ 1 


/ 

/ 

/ 


1 

1 

1 

1 


/ 

/ 

/ 

/ 

i- 


'I ■■■■ ■■ 
1 

1 / 
1 / 

1 1 


1 

1 

1 

I 


/ 

/ 

/ 

/ 


1 

1 

_1 


f 

1 

1 

1 

' 


1 / 
1 / 

1 / 

1 1 


1 

1 

1 

1 


/ 

/ 

/ 

1 

j 



IAN 



0. 0 2. 0 4.0 6. 0 B. 0 1 0. 0 



OC> 



X (RADIANS) 



Figure 3: Plotter Output for Y=Tan (X) with Jump Function 



INPUT FUNCTION FILE NAME: IBMFEX2.BAS 
INPUT DATA FILE NAME; IBMDEX2 

XMIN: 2 

XMAX: 11 



YMIN: 0 

YMAX: 1 

XSCALE: 2 
YSCALE; 1 
SIZE: 3.5 

NUMBER OF X-AXIS GRIDS: 7 
NUMBER OF Y-AXIS GRIDS: 5 
JUMP FUNCTION: Y 

NUMBER OF (X,Y) : 8 
CONNECT POINTS: Y 

MARK POINTS; Y 

PLOT FUNCTION 1; Y 
PLOT FUNCTION 2; Y 
PLOT FUNCTION 3; Y 
PLOT FUNCTION 4; Y 
FUNCTION 1 LINE TYPE: 2 

FUNCTION 2 LINE TYPE: 3 

FUNCTION 3 LINE TYPE; 4 

FUNCTION 4 LINE TYPE: 5 



(X,Y)=(2 

(4 



X-AXIS TITLE: TIME LATE (HOURS) 
Y-AXIS TITLE: P(DETECTION) 

TOP TITLE; LEAST SQUARE COMPARISON 
LEGEND-1: Y=A*X+B 
LEGEND-2; Y=B*A''X 
LEGEND-3: Y»B*X^A 
LEGEND-4; Y*X/(A+B*X) 

1 X-AXIS LABEL; 2.0 

2 X-AXIS LABEL; 2.5 

3 X-AXIS LABEL: 3.0 

4 X-AXIS LABEL: 3.5 

5 X-AXIS LABEL: 4.0 

6 X-AXIS LABEL: 4.5 

7 X-AXIS LABEL: 5.0 

8 X-AXIS LABEL; 5.5 

1 Y-AXIS LABEL: 0.0 

2 Y-AXIS LABEL: 0.2 

3 Y-AXIS LABEL: 0.4 

4 Y-AXIS LABEL; 0.6 

5 Y-AXIS LABEL; 0.8 

6 Y-AXIS LABEL: 1.0 

94) , (2.5,. 78) , (3, . 65) , (3.5, .55) 

52) , (4. 5, . 49) , (5, . 44) , (5. 5, . 41 ) 



Table 2: Input Data For Example 2 



LEAST SQUARE COMPARISON 



Y»B»X‘A 

Y»X/ 



5 

TIME LATE (HOURS) 




Figure 4: Plotter Output lor Example 2 
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8. APPENDIX 



8.1. APPENDIX A: IBM-PC BASICA Program 



18 

28 

38 

48 

58 

68 

78 

80 

90 

188 

118 

128 

138 

148 

158 

160 

170 

188 

190 

288 

218 

220 

230 

248 

258 

260 

270 

280 

290 

308 

318 

320 

330 

340 

350 

368 

370 

380 

390 

488 

418 

428 

438 



KEY OFF: CIS: OPTION BASE 1: DIM XP ( 100) , YP ( 100) 

MP$="N": LP$="N": JUMP«="Y" 

XSCALE=1: YSCALE=1: XMIN=0: XMAX=1: YMIN*0: 

FOR 1=1 TO 10: KEY I, NEXT I 



YMAX=1: SIZE=4: XG=1; Y6=l 



■MENU-1 



GOSUB 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
AI=INKEYI: 
OPEN "COMl: 



3388 

3.24 

5.25 
6,27 
8,15 

18.15 

12.15 

13.15 

15.15 

17.15 

18.15 

20.15 
23,26 



B4 

I 



B3 

0 



B2 

I 



"MENU-1: PLOTTER SWITCH SETTINGS" 

"PROFESSOR A. ANDRUS, CODE 55AS" 

"NAVAL POSTGRADUATE SCHOOL" 

"TURN PLOTTER OFF. SET SWITCHES AS FOLLOWS: (I=ON, 0=0FF) 
"HP-7470-A and IBM-7371" 

"SWITCH: S2 SI Y US 

"SET: I I 0 I 

"HP-7475-A and IBM-7372" 

"SWITCH: S2 SI Y US 

"SET: I I 0 I 

"TURN PLOTTER ON." 

".. PRESS ";CHR$(17) ;CHR$(196) ;CHR$(217) i 
IF A«OCHR$(13) THEN 190 ELSE CLS 
9688,S,7, 1 ,RS,CS65535,DS,CD" AS »1 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



A3/A4 

A4 



B4 

I 



BT 

0 * 

B3 

0 



B2 

I 



Bl" 

0 " 

TO CONTINUE 



PRINT #1,"IN;SP 1 ; PA 500,500;" 



■MENU-2 



GOSUB 3388 
LOCATE 3,27: 
LOCATE 10,20: 

IF A$="Y" OR 
LOCATE 11,20: 

IF FF$<>"" 

LOCATE 13,20: 

IF A$="Y" OR 
LOCATE 14,20: 

IF DF#="" 
INPUT#2,XMIN, 

FOR 1=1 TO IP; 
INPUT#2,LP$: 
INPUT#2,XLABELf: 
INPUT#2,T0P$; 

FOR 1=1 TO NF: 
FOR 1=1 TO 
FOR 1=1 TO 
FOR 1=1 TO 
CL0SE#2: 



PRINT "MENU-2; ENTER FILE NAMES" 
INPUT "♦ INPUT FUNCTION FILE NAME 
AJ="y" THEN 270 ELSE 290 
INPUT “ FILE NAME 

THEN CHAIN MERGE FF$, 290, ALL 



Y/N 



INPUT 
AJ="y" 
INPUT " 
THEN 460 



NAME 



♦ INPUT DATA FILE 
THEN 310 ELSE 460 

FILE NAME = 
ELSE OPEN DFI FOR INPUT AS 



Y/N 



" j Al 
" ,FF$ 
";AI 
",DF$ 



NXL: 

NYL: 

NF: 



XMAX,YMIN,YMAX,XSCALE,YSCALE,SIZE,XG,YG, IP,NF,NXL,NYL 
INPUT#2,XP(I) ,YP(I) : NEXT I 
INPUT#2,MP* 

INPUT#2,YLABEL$ 

INPUT#2,JUMPI 
INPUT#2,KF$(I) : NEXT I 
INPUT#2,XL5(I) ; NEXT I 
INPUT#2,YL$(I) : NEXT I 
INPUT#2,LI(I) ; NEXT I 
GOTO 468 



-MENU-3 



440 


KEY(10) 


OFF: 


RETURN 


960: 'F-TRAP SUBROUTINE 


450 


KEY (9) 


OFF: 


KEY (10) OFF: RETURN 460 


460 


KEY(9) 


ON: 


ON KEY(9) GOSUB 450: KEY(10) ON: ON KEY(10) 


470 


GOSUB 


3300: 


GOSUB 


3688: GOSUB 3568 


480 


LOCATE 


3,25: 


PRINT 


"MENU-3: ENTER PLOT PARAMETERS" 


490 


LOCATE 


7,15: 


PRINT 


"XMIN =";XMIN 


500 


LOCATE 


8,15: 


PRINT 


"XMAX =";XMAX 



GOSUB 440 
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510 


LOCATE 


9,15 


PRINT 


"YHIN = 


"; YMIN 






520 


LOCATE 


10, 15 


PRINT 


”YMAX = 


"; YMAX 






530 


LOCATE 


11,15 


PRINT 


"XSCALE= 


";XSCALE 






540 


LOCATE 


12,15 


PRINT 


“YSCALE= 


"; YSCALE 






550 


LOCATE 


13,15 


PRINT 


"SIZE = 


"5 SIZE 






560 


LOCATE 


14,15 


PRINT 


“NUMBER 


OF X 


-AXIS GRIDS 


= ";XG 


570 


LOCATE 


15,15 


PRINT 


"NUMBER 


OF Y 


-AXIS GRIDS 


= "; YG 


580 


LOCATE 


16,15 


PRINT 


“NUMBER 


OF FUNCTIONS 




= ";NF 


590 


LOCATE 


17,15 


PRINT 


"JUMP FUNCTION Y/N 




= "jJUMP$ 


600 


LOCATE 


18,15 


PRINT 


"NUMBER 


OF (X,Y) TO 


PLOT 


= "; IP 


610 


LOCATE 


19,15 


PRINT 


"CONNECT 


POINTS Y/N 




« ";LP$ 


620 


LOCATE 


20,15 


PRINT 


"MARK POINTS 


Y/N 




= ";MP$ 


630 


LOCATE 


7,13 


PRINT 












640 


LOCATE 


7,50 


INPUT 


XMIN$: 


IF 


XMIN$<>" 


" THEN XMIN=VAL(XMIN») 


650 


LOCATE 


8,13 


PRINT 












660 


LOCATE 


8,50 


INPUT 


XMAX$; 


IF 


XMAXSO" 


" THEN XMAX=VAL(XMAX$) 


670 


LOCATE 


9,13 


PRINT 












680 


LOCATE 


9,50 


INPUT 


YMINI: 


IF 


YMINfO" 


" THEN YMIN=VAL(YMIN$) 


690 


LOCATE 


10,13 


PRINT 












700 


LOCATE 


10,50 


INPUT 


YMAXI: 


IF 


YMAX$<>" 


" THEN YMAX=VAL(YMAX$) 


710 


LOCATE 


11,13 


PRINT 












720 


LOCATE 


11,50 


INPUT 


XSCALEI: 


IF 


XSCALEfO" " 


THEN XSCALE=VAL (XSCALEO 


730 


IF XSCALE<=0 


THEN 


XSCALE=1 










740 


LOCATE 


12,13; 


! PRINT 












750 


LOCATE 


12,50; 


: INPUT 


YSCALES: 


IF 


YSCALE$<>" " 


THEN YSCALE=VAL(YSCALEI) 


760 


IF YSCALE<=0 


THEN 


YSCALE=1 










770 


LOCATE 


13,13; 


: PRINT 












780 


LOCATE 


13,50: INPUT 


SIZES 










790 


LOCATE 


14,13; 


: PRINT 












800 


LOCATE 


14,50 


: INPUT 


XGS: 


IF 


XG$<>"" 


THEN 


XG=VAL(XGI) 


810 


IF XG<= 


0 


THEN 


XG=1 ELSE 


IF 


XB>=10 


THEN 


XG = 10 


820 


LOCATE 


15,13: PRINT 












830 


LOCATE 


15,50; 


: INPUT 


YGS: 


IF 


YG$<>" " 


THEN 


YG=VAL(YG$) 


840 


IF YG<= 


^0 


THEN 


YG=1 ELSE 


IF 


YG>=10 


THEN 


YG = 10 


850 


LOCATE 


16,13: PRINT 












860 


LOCATE 


16,50 


: INPUT 


NFS: 


IF 


NF$<>"“ 


THEN 


NF=VAL(NF$) 


870 


LOCATE 


17,13 


: PRINT 












880 


LOCATE 


17,50 


: INPUT 


T$: 


IF 


T$<>" " 


THEN 


JUMP«=T$ 


890 


LOCATE 


18,13 


: PRINT 












900 


LOCATE 


18,50 


: INPUT 


IPS: 


IF 


IPIO"" 


THEN 


IP=VAL(IP$) 


910 


IF IP>100 


THEN 


IP=100 










920 


LOCATE 


19,13 


; PRINT 


H^H 










930 


LOCATE 


19,50: INPUT 


AS: 


IF 


A$<>" " 


THEN 


LPI=A$ 


940 


LOCATE 


20,13 


: PRINT 












950 


LOCATE 


20,50: INPUT 


AS: 


IF 


A$<>" " 


THEN 


MP$=A$ 



960 IF SIZE*<>"" THEN S I ZE=VAL ( S I ZEf ) 

970 IF SIZE<3 THEN SIZE=3 ELSE IF SIZE>5 THEN SIZE=5 

980 X0=500»(10.3-SIZE)-157: Y0=500* ( 7 . 65-SI ZE ) +1 88 : Z=SIZE*1000 
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MENU-4 



990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 



IF NF»0 THEN 1140 ELSE 1030 

KEY(10) OFF: RETURN 1140: 'F-TRAP SUBROUTINE 

KEY(9) OFF: KEY (10) OFF: RETURN 1030 

KEY (9) ON: ON KEY(9) GOSUB 1020: KEY(10> ON; ON KEY(10) GOSUB 1010 
GOSUB 3300: GOSUB 3600: GOSUB 3560 

LOCATE 3,21: PRINT "MENU-4: ENTER FUNCTION NUMBER TO PLOT" 

FOR 1=1 TO NF 

LOCATE 10+1,20: PRINT "PLOT FUNCTION" ; I j " Y/N : ";KF$(D 
NEXT I 

FOR 1=1 TO NF 

LOCATE 10+1,18: PRINT "*" 

LOCATE 10 + 1,50: INPUT T$: IF TJO"" THEN KF$(I)=Tf 
NEXT I 



MENU-5 



IF IP=0 THEN 1450 ELSE 1170 

KEY(10) OFF: RETURN 1450: 'F-TRAP SUBROUTINE 

KEY(9) OFF: KEY(10) OFF: RETURN 1170 

KEY (9) ON: ON KEY(9> GOSUB 1160: KEY(10) ON: ON KEY(10) GOSUB 1150 
GOSUB 3300: GOSUB 3600: GOSUB 3560 
FOR J=1 TO IP STEP 15 

LOCATE 3,27: PRINT "MENU-5: ENTER (X,Y) POINTS" 

IF J+14>IP THEN JE=IP ELSE JE=J+14 
K = 0 

FOR I=J TO JE 
K=K+1 

LOCATE 5+K,3: PRINT I 

LOCATE 5+K,7; PRINT "X=";XP(D 
LOCATE 5+K,25: PRINT "Y="5YP(D 
NEXT I 
K = 0 

FOR I=J TO JE 



K = K+1 

LOCATE 5+K,3: PRINT 

LOCATE 5+K,43: INPUT "X=";XP$ 

IF XP*="P" OR XP$="p" THEN 1400 
LOCATE 5+K,61: INPUT "Y=";YP$ 

IF YP$="P“ OR YP$="p" THEN 1400 
IF XP$<>“" THEN XP(I)=VAL(XP$) 

IF YP*<>"" THEN YP(I)=VAL(YP$) 

NEXT I 
NEXT J 
GOTO 1450 
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MENU-6 



1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 



KEY (10) 


OFF: 


KEY(9) 


OFF: 


KEY(9) 


ON: 


GOSUB 


3300: 


LOCATE 


3,27: 


LOCATE 


10,20: 


LOCATE 


11,20: 


LOCATE 


12,20: 


LOCATE 


14,18: 


IF T$<> 


II II 


LOCATE 


15,18: 


IF TIO 


II M 


LOCATE 


16,18: 


IF TfO 


II II 


IF NF=0 
KEY(10) 


OFF: 


KEY(9) 


OFF: 


KEY (9) 


ON: 


GOSUB 


3300: 


LOCATE 


3,27: 


K = 7 

FOR 1=1 


TO NF 



RETURN 1580: 'F-TRAP SUBROUTINE 
KEY(10) OFF: RETURN 1450 
ON KEY(9) 60SUB 1440: KEY(10) ON: 
60SUB 3600: GOSUB 3560 
PRINT "MENU-6: ENTER PLOT 
PRINT "X-AXIS TITLE 
PRINT "Y-AXIS TITLE 
PRINT "TOP OF GRAPH TITLE 
INPUT "♦ NEM X-AXIS TITLE 
THEN XLABEL*=T* 



ON KEY(10) GOSUB 1430 



TITLES" 

’ ";XLABEL* 
=• ";YLABEL$ 
= ";TOP$ 

= ",T* 



INPUT "* NEW Y-AXIS TITLE 
THEN YLABEL*=T* 

INPUT "* NEW TOP TITLE 
THEN TOP*=Tf 



,Tf 



,T$ 



-MENU-7 



THEN 1760 ELSE 1610 

RETURN 1760: 'F-TRAP SUBROUTINE 

KEY(10) OFF: RETURN 1610 

ON KEY(9) GOSUB 1600: KEY(10) ON: ON KEY(10) GOSUB 1590 

GOSUB 3600: GOSUB 3560 

PRINT "MENU-7: ENTER PLOT LEGENDS" 



K=K+1 

LOCATE K,15: PRINT "LEGEND-" ; I ; 
NEXT I 
K=7 

FOR 1=1 TO NF 
K=K+1 

LOCATE K,13: 

LOCATE K,45: 

NEXT I 



";L$(D 



PRINT "*" 

INPUT "NEW LEGEND = ",T»: 



IF T«<>"" THEN L*(I)=Tf 



'--- MENU-8 

KEY(9) ON: ON KEY(9) GOSUB 1790: KEY(10) ON: ON KEY(10) GOSUB 1780 

GOSUB 3300: GOSUB 3600: GOSUB 3560: GOTO 1800 

KEY(10) OFF: RETURN 1870: 'F-TRAP SUBROUTINE 

KEY(9) OFF; KEY (10) OFF: RETURN 1760 

LOCATE 3,26; PRINT "MENU-8: ENTER X-AXIS LABELS" 

IF XG=0 THEN NXL=2 ELSE NXL=XG+1 

FOR 1=1 TO NXL: LOCATE 8+1,10: PRINT I;"X-AXIS LABEL =";XLi(I): NEXT I 
FOR 1=1 TO NXL 

LOCATE 8+1,8: PRINT "*" 

LOCATE 8+1,45: INPUT "NEW LABEL =",Ti: IF TiO"" THEN XLi(I)=T* 

NEXT I 

FOR 1=1 TO NXL 

XL(I)=LEN(XLf (I) ) : IF XL(I)>XLMAX THEN XLMAX = XL(I) 

NEXT I 
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1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 



' -MENU-9 

KEY(9) ON: ON KEY(9) GOSUB 1940: KEY(10) ON: ON KEY(10) GOSUB 1930 

GOSUB 3300: GOSUB 3600: GOSUB 3560: GOTO 1950 

KEY(10) OFF: RETURN 2020: 'F-TRAP SUBROUTINE 

KEY(9) OFF: KEY(10) OFF: RETURN 1910 

LOCATE 3,26: PRINT "MENU-9: ENTER Y-AXIS LABELS" 

IF YG=0 THEN NYL=2 ELSE NYL=YG+1 

FOR 1=1 TO NYL: LOCATE 8+1,10: PRINT I;"Y-AXIS LABEL =";YL$(I): NEXT I 
FOR 1=1 TO NYL 

LOCATE 8+1,8: PRINT 

LOCATE 8+1,45: INPUT "NEW LABEL =",T$: IF TIO"" THEN YL$(I)=T$ 

NEXT I 

FOR 1=1 TO NYL 

YL(I)=LEN(YL$(D) : IF YL(I)>YLMAX THEN YLMAX = YL(I) 

NEXT I 



KEY(9) 
KEY (9) 
LOCATE 
LOCATE 
IF A$ = 
LOCATE 
IF A« = 
LOCATE 
OPEN DF$ 
PRINT#2, 
FOR 1=1 
PRINT#2, 
PRINT#2, 
PRINT#2, 
FOR 1=1 
FOR 1=1 
FOR 1=1 
FOR 1=1 
CL0SE«2 



THEN 2260 



MENU-10 

ON: ON KEY (9) GOSUB 2070: KEY (10) OFF: GOSUB 3300: GOTO 2080 
OFF: RETURN 2060: 'F-TRAP SUBROUTINE 
3,25: PRINT “MENU-10: EDIT/SAVE INPUT DATA" 

2,20: INPUT "* EDIT INPUT DATA Y/N ";A$ 

OR A»="y" THEN 230 
4,20: INPUT "* SAVE INPUT DATA Y/N ";AI 
OR A$="y" THEN 2130 ELSE 2260 
5,20: INPUT " FILE NAME » ",DF$: IF DF$> 

FOR OUTPUT AS 2 

XMIN, XMAX,YMIN,YMAX,XSCALE,YSCALE,SIZE,XG,YG,IP,NF,NXL,NYL 
TO IP: PRINT#2,XP(I) ,YP(I): NEXT I 

LP$: PRINT#2,MP$ 

XLABEL$: PR INTi2 , YLABEL$ 

TOP$: PRINT#2,JUMP$ 

TO NF: PRINT#2,KF$(I) : NEXT I 

TO NXL: PRINT#2,XL$(I) : NEXT I 

TO NYL: PR I NT#2 , YL$ ( I ) : NEXT I 

TO NF: PRINT#2,L$(I) : NEXT I 



MENU-11 

GOSUB 3300 

LOCATE 3,30: PRINT "MENU-11: BEGIN PLOT" 

LOCATE 12,28: PRINT "PLOTTING AXES AND GRIDS" 

PRINTil,“IP",X0,Y0,X0 + Z,Y0 + Z,";" 
PRINT#1,"SC“,XMIN,XMAX,YMIN,YMAX,"5 " 

PRINT#1,"PA",XMIN,YMIN,";PD; " 

PRINT#1 , "PA", XMIN, YMAX,XMAX,YMAX, XMAX,YMIN, XMIN, YMIN, ";PU; " 

PRINT#1 ,"IW",X0,Y0,X0+Z,Y0+Z,"; " 

PRINT#1,"TL 100,0;" 

DXG=(XMAX-XMIN)/XG 

FOR 1=1 TO X6-1: PRINT# 1 , " PA " , I +DXG+XMI N , YMIN , " ; PD; XT; PU; " : NEXT I 
DYG=(YMAX-YMIN) /YG 

FOR 1 = 1 TO YG-1; PRINT # 1 , " PA" , XMI N , I *DYG + YMI N , " ; PD; YT; PU; " : NEXT I 
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MENU-12 



2390 - 

2400 IF IP»0 THEN 2560 
2410 60SUB 3300 

2420 LOCATE 3,22; PRINT "MENU-12; ENTER POINT PLOT PARAMETERS" 

2430 GOSUB 3390 
2440 PRINT#1, “SI .38, .54;" 

2450 IF (MPi="Y" OR MP$="y") AND (LP<="Y“ OR LPi="y") THEN 2490 

2460 IF (MPS="Y" OR MP$="y") AND (LP*="N" OR LP$="n") THEN 2510 

2470 IF (MP$="N" OR MPi="n") AND (LPI="Y" OR LPi="y“) THEN 2530 

2480 GOTO 2560 

2490 FOR 1 = 1 TO IP; PRINT#1, "SM«; PA" , XP ( I > *XSCALE , YP ( I ) *YSCALE , " ; PD; " ; NEXT I 
2500 PRINT#1, "SM;PU;“; GOTO 2560 

2510 FOR 1 = 1 TO IP; PRINT#1, "SM«; PA " , XP ( I ) *XSCALE , YP ( I ) *YSCALE , " ; " ; NEXT I 
2520 PRINT#1, "SM;PU;"; GOTO 2560 

2530 FOR 1=1 TO IP; PRINT#1, "PA" , XP ( I ) *XSCALE , YP ( I ) *YSCALE , " ; PD; " ; NEXT I 
2540 PRINT#1, "SM;PU;"; GOTO 2560 

2550 MENU-13 

2560 PRINT#1, "SI;“; KF=0 
2570 FOR INF=1 TO NF 

2580 IF KFf(INF)="N" OR KFi(INF)="n" THEN 2890 ELSE KF»KF+1 
2590 GOSUB 3300 

2600 LOCATE 3,20; PRINT "MENU-13; ENTER FUNCTION PLOT PARAMETERS" 

2610 LOCATE 6,27; PRINT "PLOTTING FUNCTION ";INF 

2620 GOSUB 3390 
2630 X=XMIN/XSCALE 

2640 ON INF GOSUB 5010,5020,5030,5040,5050 

2650 Y=Y*YSCALE; X=X*XSCALE 

2660 IF JUMP$="N" OR JUMPi="n" THEN 2680 

2670 IF Y<YMIN OR Y>YMAX THEN YCf="YES" ELSE YC$="NO" 

2680 PRINT #1,"PA",X,Y,";PD;" 

2690 FOR XT=XMIN TO XMAX STEP ( XMAX-XMI N) / ( Z / 10) 

2700 X=XT/XSCALE 

2710 ON INF GOSUB 5010,5020,5030,5040,5050 
2720 Y=Y*YSCALE; X=X*XSCALE 

2730 IF JUMP$="N" OR JUMPI="n" THEN PRINT#1, "PA"; GOTO 2770 

2740 IF Y<YMIN OR Y>YMAX THEN YC1$="YES" ELSE YCli="N0" 

2750 IF YCS = "YES" AND YC1I = "YES" THEN PRINT#1 , "PU; PA" ELSE PRINT#1 , "PD; PA" 

2760 YC*=YC1$ 

2770 PRINT #1, USING "####.####"; X , Y 

2780 PRINT #1,";" 

2790 NEXT XT 

2800 IF L$(INF)="“ THEN 2880 

2810 PRINT# 1," I W",X0,Y0,X0+Z + 1000, Y0 + Z, "; " 

2820 PRINT#1,"SC;SI . 13 , . 16; PU; PA" , X0 + Z + 50 , Y0 + Z-300*KF , " ; " 

2830 PRINT#1 ,"LB";LI(INF> ,CHRi(3) 

2840 PRINT# 1 , "PA", X0 + Z + 50, Y0 + Z-300*KF-35, "; " 

2850 PRINT#1 ,"PD;PA" ,X0+Z+750,Y0+Z-300*KF-35, "; " 

2860 PRINT#1,"PU;SC",XMIN,XMAX,YMIN,YMAX,";SI .19, .27;" 

2870 PRINT #1,"IW",X0,Y0,X0+Z,Y0+Z,";" 

2880 PRINT#1, "PU;" 

2890 NEXT INF 

2900 PRINT #1,"PU;IP;IW;SC;SP 1;“ 
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MENU-14 



2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 



GOSUB 3300 

LOCATE 3,28: PRINT "MENU-14: BEGIN PRINTING" 

LOCATE 12,27: PRINT "PRINTING LABELS AND TITLES" 

LX»LEN(XLABELf ) 

NX=(Z*9/1000-LX) /2 
PRINT#1, "SI .13,.16;" 

FOR 1=1 TO NXL 

IF XLf(I)="" THEN 3020 

PRINT#l,"PA",X0+2/(NXL-l)*(I-l),Y0-100,“;" 

PRINT#1 ,"CP",-XL(I)/2,0,";LB";XL$(I) ,CHR$(3) 

NEXT I 

IF XLABELf="" THEN 3070 
PRINT#1, "SI .19, .27;" 

IF XLMAX*0 THEN YT=100 ELSE YT=350 

PRINT #1 ,"PA",X0,Y0-YT, ";CP",NX,0,";LB";XLABEL*,CHR$(3) 

LY=LEN(YLABELf ) 

NY=(Z*9/1000-LY) /2 
PRINT#1, "SI .13, .16}" 

FOR 1=1 TO NYL 
IF YL*(1)="" THEN 3150 

IF 1=1 THEN YT=0 ELSE YT=-.2 

PRINT #1, "PA",X0-20,Y0+Z/ (NYL-1)*(I-1) 

PRINT #1,"CP",-YL(I) ,YT,";LB";YL$(I) ,CHRf (3) 

NEXT I 

IF YLABEL*="" THEN 3190 ELSE XT=YLMAX*1000/9+100 
PRINT#1, "SI .19, .27;" 

PRINT #1,"PA",X0-XT,Y0,";DI 0, 1 ; CP " , NY , 0, " ; LB" ; YLABELf , CHR$ ( 3) , "DI 1,0; 
IF TOP*="" THEN 3220 ELSE PRINT#1, "SI .27, .40;" 

PRINT#1 , "PA" ,X0,Y0+Z+300, "; " 

PRINT#1 , "CP" , (Z*6.2/1000-LEN(TOP$) ) /2 , 0 , “ ; LB " ; TOPI , CHR$ (3 ) 

PRINT#1, "PU;SC;PA 0,0;" 

CLOSE* 1 

MENU-15 



GOSUB 3300 

LOCATE 3,26: PRINT "MENU-15: RESTART/END PROGRAM" 

LOCATE 12,25: INPUT "♦ RESTART PROGRAM Y/N ";TI 
IF TI="Y" OR Tl="y" THEN CLOSE#l: GOTO 200 
CLOSEIl: SYSTEM: END 

' SCREEN BORDER SUBROUTINE 



CLS 

LOCATE 2,1: 
FOR 1=3 TO 23 
LOCATE 1,1: 
LOCATE 1,79: 
NEXT I 

LOCATE 24,1: 
RETURN 



PRINT CHRI(201) ;STRINGI(77,205) ;CHRI(187) 

PRINT CHRK186) 

PRINT CHRK186); 

PRINT CHRK200) ; STRINGI (77 , 205) ; CHRI ( 188) ; 



II 
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PEN SELECTION SUBROUTINE 



^07 V 

3400 


PRINT#1 


, "SP;“ 








3410 


LOCATE 


8,25; 


INPUT 


"* SELECT PEN COLOR POSITION: ";l 


3420 


LOCATE 


10,25: 


PRINT 


" SELECT LINE TYPE: 


3430 


LOCATE 


12,25: 


PRINT 


"C/R 


SOLID 


3440 


LOCATE 


13,25: 


PRINT 


" 0 


DOTS AT PLOTTED POINTS" 


3450 


LOCATE 


14,25: 


PRINT 


" 1 


DOTS EQUALLY SPACED" 


3460 


LOCATE 


15,25: 


PRINT 


" 2 


SHORT DASH" 


3470 


LOCATE 


16,25: 


PRINT 


" 3 


LONG DASH" 


3480 


LOCATE 


17,25: 


PRINT 


" 4 


LONG DASH AND DOT" 


3490 


LOCATE 


18,25: 


PRINT 


" 5 


LONG AND SHORT DASH" 


3500 


LOCATE 


19,25; 


PRINT 


" 6 


LONG AND 2 SHORT DASHES" 


3510 


LOCATE 


10,25: 


PRINT 






3520 


LOCATE 


10,54: 


INPUT 


LT» 




3530 


PRINT#1 


, "SP"; 


PCP, " 







3540 IF LT$*"” THEN PRINT#1, "LT;" ELSE PRINTil, "LT" , VAL (LT$) , " ; " 

3550 RETURN 

3560 ' F10 LINE SUBROUTINE 

3570 LOCATE 23,25 

3580 PRINT "PRESS F10 AND " ; CHR$ ( 1 7) ; CHR$ ( 1 96) ; CHR$ (21 7 ) ; " FOR QUICK ADVANCE" 
3590 RETURN 

3600 ' F9 LINE SUBROUTINE 

3610 LOCATE 22,25 

3620 PRINT "PRESS F9 AND " ; CHR$ ( 1 7) ; CHR$ (196) ; CHRf ( 21 7) ; " TO REPEAT MENU" 
3630 RETURN 

5000 ' FUNCTION SUBROUTINES 

5010 RETURN 
5015 RETURN 
5020 RETURN 
5025 RETURN 
5030 RETURN 
5035 RETURN 
5040 RETURN 
5045 RETURN 
5050 RETURN 
5055 RETURN 
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